home *** CD-ROM | disk | FTP | other *** search
/ Mac Magazin/MacEasy 32 / Mac Magazin and MacEasy Magazine CD - Issue 32.iso / Grafik & Text / OzTeX3.0 / TeX-inputs / LaTeX / tools / hhline.sty < prev    next >
Text File  |  1997-03-07  |  3KB  |  84 lines
  1. %%
  2. %% This is file `hhline.sty',
  3. %% generated with the docstrip utility.
  4. %%
  5. %% The original source files were:
  6. %%
  7. %% hhline.dtx  (with options: `package')
  8. %% 
  9. %% IMPORTANT NOTICE:
  10. %% 
  11. %% This file is a generated file from the sources of the `tools' bundle
  12. %% in the LaTeX2e distribution.
  13. %% 
  14. %% For the copyright notice see the source file(s).
  15. %% 
  16. %% You are not allowed to modify this file.
  17. %% 
  18. %% You are allowed to distribute this file if and only if
  19. %% it is distributed with the corresponding source files in
  20. %% the `tools' bundle.
  21. %% 
  22. %% For the copying and distribution conditions of the source files,
  23. %% see the file readme.txt distributed with the tools bundle.
  24. %% 
  25. %% File: hhline.dtx Copyright (C) 1991-1994 David Carlisle
  26. \NeedsTeXFormat{LaTeX2e}
  27. \ProvidesPackage{hhline}
  28.          [1994/05/23 v2.03 Table rule package (DPC)]
  29. \def\HH@box#1#2{\vbox{%
  30.   \hrule \@height \arrayrulewidth \@width #1
  31.   \vskip \doublerulesep
  32.   \hrule \@height \arrayrulewidth \@width #2}}
  33. \def\HH@add#1{\toks@\expandafter{\the\toks@#1}}
  34.  
  35. \def\HH@xexpast#1*#2#3#4\@@{%
  36.    \@tempcnta #2
  37.    \toks@={#1}\@temptokena={#3}%
  38.    \let\the@toksz\relax \let\the@toks\relax
  39.    \def\@tempa{\the@toksz}%
  40.    \ifnum\@tempcnta >0 \@whilenum\@tempcnta >0\do
  41.      {\edef\@tempa{\@tempa\the@toks}\advance \@tempcnta \m@ne}%
  42.        \let \@tempb \HH@xexpast \else
  43.        \let \@tempb \HH@xexnoop \fi
  44.    \def\the@toksz{\the\toks@}\def\the@toks{\the\@temptokena}%
  45.    \edef\@tempa{\@tempa}%
  46.    \expandafter \@tempb \@tempa #4\@@}
  47.  
  48. \def\HH@xexnoop#1\@@{}
  49. \def\hhline#1{\omit\@firstamptrue\@tempswafalse
  50. \global\setbox\@ne\HH@box\doublerulesep\doublerulesep
  51.   \xdef\@tempc{\ifx\extrarowheight\HH@undef\hskip-.5\arrayrulewidth\fi}%
  52.     \HH@xexpast\relax#1*0x\@@\toks@{}\expandafter\HH@let\@tempa`}
  53.  
  54. \def\HH@let#1{\futurelet\@tempb\HH@loop}
  55.  
  56. \def\HH@loop{%
  57.   \ifx\@tempb`\def\next##1{\the\toks@\cr}\else\let\next\HH@let
  58.   \ifx\@tempb|\if@tempswa\HH@add{\hskip\doublerulesep}\fi\@tempswatrue
  59.           \HH@add{\@tempc\vline\@tempc}\else
  60.   \ifx\@tempb:\if@tempswa\HH@add{\hskip\doublerulesep}\fi\@tempswatrue
  61.       \HH@add{\@tempc\HH@box\arrayrulewidth\arrayrulewidth\@tempc}\else
  62.   \ifx\@tempb##\if@tempswa\HH@add{\hskip\doublerulesep}\fi\@tempswatrue
  63.          \HH@add{\@tempc\vline\@tempc\copy\@ne\@tempc\vline\@tempc}\else
  64.   \ifx\@tempb~\@tempswafalse
  65.            \if@firstamp\@firstampfalse\else\HH@add{&\omit}\fi
  66.               \HH@add{\hfil}\else
  67.   \ifx\@tempb-\@tempswafalse
  68.            \if@firstamp\@firstampfalse\else\HH@add{&\omit}\fi
  69.               \HH@add{\leaders\hrule\@height\arrayrulewidth\hfil}\else
  70.   \ifx\@tempb=\@tempswafalse
  71.        \if@firstamp\@firstampfalse\else\HH@add{&\omit}\fi
  72.        \HH@add
  73.           {\rlap{\copy\@ne}\leaders\copy\@ne\hfil\llap{\copy\@ne}}\else
  74.   \ifx\@tempb t\HH@add{\rlap{\HH@box\doublerulesep\z@}}\else
  75.   \ifx\@tempb b\HH@add{\rlap{\HH@box\z@\doublerulesep}}\else
  76.   \PackageWarning{hhline}%
  77.       {\meaning\@tempb\space ignored in \noexpand\hhline argument%
  78.        \MessageBreak}%
  79.   \fi\fi\fi\fi\fi\fi\fi\fi\fi
  80.   \next}
  81. \endinput
  82. %%
  83. %% End of file `hhline.sty'.
  84.